home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 152 / SGDS 152.2mg / SDGS.152 / SOFTDISK.COPY (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1993-11-13  |  6.0 KB  |  187 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 1  PRINT  CHR$(21): TEXT : HOME :VER = 1.7
  2. 4  CALL 6656: CALL 16384: REM 5
  3. 14  FOR I = 769 TO 768 + PEEK(768):P$ =  CHR$( PEEK(I)): IF P$ > = "a"  AND P$ < = "z"  THEN P$ =  CHR$( ASC(P$) -32)
  4. 15 ART$ = ART$ +P$: NEXT 
  5. 16  HTAB 12: PRINT "SOFTDISK FILECOPY": PRINT : HTAB 15: PRINT "VERSION "VE: PRINT : HTAB 3: PRINT "COPYRIGHT 1994 SOFTDISK PUBLISHING. "
  6. 18  PRINT : HTAB 5: PRINT "(PRESS [ESC] TO LEAVE FILECOPY)": FOR I = 1 TO 40: PRINT "-";: NEXT 
  7. 20  POKE 32,1: POKE 33,38: POKE 34,8: HOME 
  8. 32  VTAB 12: HTAB 3: PRINT "READING SYSTEM SETUP..."
  9. 35  DIM P$(12),D(12,1),F$(37),AD(12,1),AD$(12),SB$(127)
  10. 36  REM <CTRL-0x0a>GETBUFR
  11. 37  ONERR  GOTO 164
  12. 40  PRINT  CHR$(4)"PREFIX": INPUT PF$
  13. 41 PF$ = PF$ + LEFT$(ART$,1) +"/"
  14. 42  POKE  -16368,0
  15. 43  REM <CTRL-0x0a>ONLINE
  16. 44  FOR I = 1 TO 12:P$(I) = "": NEXT 
  17. 45 DD = 1:SS = 7:CP = 1
  18. 46  ONERR  GOTO 50
  19. 47  VTAB 21: PRINT  CHR$(4)"PREFIX,S"SS",D"DD
  20. 48  PRINT  CHR$(4)"PREFIX": INPUT P$(CP)
  21. 49  IF  PEEK( -16384) = 155  THEN 198
  22. 50 CP = CP +1:DD = DD +1: IF DD = 3  THEN DD = 1:SS = SS -1: IF SS = 1  THEN  ON OD +1 GOTO 53,74
  23. 51  GOTO 47
  24. 52  REM <CTRL-0x0a>S,D INTO VARS
  25. 53  POKE 216,0: POKE 222,0
  26. 54 TS = 7:TD = 1: FOR C9 = 1 TO 12:D(C9,0) = TS:D(C9,1) = TD:TD = TD +1: IF TD >2  THEN TD = 1:TS = TS -1
  27. 55  NEXT 
  28. 56  PRINT  CHR$(4)"PREFIX " LEFT$(PF$, LEN(PF$) -2)
  29. 57  PRINT  CHR$(4)"BLOAD "ART$".T,A$300,B5,L2"
  30. 58 BV = 256 * PEEK(769) + PEEK(768)
  31. 59  PRINT  CHR$(4)"OPEN "ART$".T,TBIN"
  32. 60  PRINT  CHR$(4)"READ "ART$".T"
  33. 61  FOR I = 0 TO 4: GET K$: NEXT I:BV = BV -( ASC(K$) *2 +3)
  34. 62  FOR I = 1 TO  ASC(K$): GET K$: GET K$: NEXT I
  35. 63 FC = 0
  36. 64  GET K$: GET K$
  37. 65  GET K$: IF K$ = "@"  OR K$ =  CHR$(0)  THEN 70
  38. 66  IF K$ = ""  OR BV <1  THEN 70
  39. 67 L =  ASC(K$):F$(FC) = "": FOR I = 1 TO L: GET K$:F$(FC) = F$(FC) +K$:BV = BV -1: NEXT I
  40. 68  IF BV <1  THEN 65
  41. 69 FC = FC +1: GOTO 65
  42. 70  PRINT  CHR$(4)"CLOSE"
  43. 72 FC = FC -1:SRC = 0:SC = 0
  44. 73  REM <CTRL-0x0a>ACTV DRVS
  45. 74 ND = 1: FOR I = 1 TO 12: IF P$(I) < >""  AND P$(I) < >"/RAM/"  THEN ND = 0:AD$(SC) = P$(I):AD(SC,0) = D(I,0):AD(SC,1) = D(I,1):SC = SC +1:LD = I
  46. 75  NEXT I
  47. 76  IF ND = 1  THEN  HOME  PRINT "THERE ARE NO VOLUMES ONLINE.": PRINT : HTAB 14: PRINT "PRESS A KEY": GOSUB 196: GOTO 198
  48. 77  IF SC = 1  AND   NOT OD  THEN  HOME : HTAB 4: PRINT "PLEASE INSERT DESTINATION DISK": PRINT : HTAB 14: PRINT "PRESS A KEY": GOSUB 196:OD = 1: GOTO 44
  49. 78  REM <CTRL-0x0a>PICK VOL
  50. 79  HOME : HTAB 3: PRINT "MOVE HIGHLIGHT ONTO THE NAME OF": HTAB 3: PRINT "YOUR DESTINATION DISK:": IF OD  THEN CP = 1: GOTO 93
  51. 80  VTAB 21: HTAB 2: PRINT "ARROWS MOVE HIGHLIGHT/RETURN SELECTS"
  52. 81  FOR I = 0 TO SC -1: VTAB I +12: HTAB 4: PRINT "S"AD(I,0)"D"AD(I,1)"="AD$(I): NEXT 
  53. 82 CP = 0
  54. 83  VTAB CP +12: HTAB 9: INVERSE : PRINT AD$(CP)
  55. 84  GOSUB 196: VTAB CP +12: HTAB 9: NORMAL : PRINT AD$(CP)
  56. 85  IF K$ =  CHR$(27)  THEN 198
  57. 86  IF K$ =  CHR$(8)  OR K$ =  CHR$(11)  THEN CP = CP -1: GOTO 89
  58. 87  IF K$ =  CHR$(21)  OR K$ =  CHR$(10)  THEN CP = CP +1: GOTO 89
  59. 88  IF K$ =  CHR$(13)  THEN 93
  60. 89  IF CP = SC  THEN CP = 0
  61. 90  IF CP =  -1  THEN CP = SC -1
  62. 91  GOTO 83
  63. 92  REM <CTRL-0x0a>SUBDIRS?
  64. 93  HOME : HTAB 3: PRINT "CHECKING "AD$(CP): HTAB 3: PRINT "FOR SUBDIRECTORIES..."
  65. 94  ONERR  GOTO 135
  66. 95  PRINT  CHR$(4)"PREFIX,S"AD(CP,0)",D"AD(CP,1)
  67. 96 DC = 0
  68. 97  PRINT  CHR$(4)"OPEN "AD$(CP)",TDIR"
  69. 98  PRINT  CHR$(4)"READ "AD$(CP)
  70. 99  INPUT K$: INPUT K$: INPUT K$
  71. 100  INPUT K$: ON (  NOT ( LEN(K$))) GOTO 106
  72. 101 F$ =  MID$ (K$,2,15):TYP$ =  MID$ (K$,18,3)
  73. 102  ON TYP$ < >"DIR" GOTO 100
  74. 103 SB$(DC) = F$
  75. 104  IF  RIGHT$(SB$(DC),1) = " "  THEN SB$(DC) =  LEFT$(SB$(DC), LEN(SB$(DC)) -1): GOTO 104
  76. 105 DC = DC +1: GOTO 100
  77. 106  PRINT  CHR$(4)"CLOSE"
  78. 107  HOME : HTAB 3
  79. 108  IF DC = 0  THEN  PRINT "I FOUND NO SUBDIRECTORIES IN": HTAB 3: PRINT AD$(CP)".": FOR QQ = 1 TO 3000: NEXT QQ: GOTO 143
  80. 109  HTAB 3: PRINT "MOVE HIGHLIGHT TO SELECT A": HTAB 3: PRINT "FURTHER SUBDIRECTORY:"
  81. 110  VTAB 21: HTAB 2: PRINT "SPACEBAR STARTS FILECOPY TO:"
  82. 111  POKE 32,2: POKE 33,36: VTAB 22: HTAB 1: PRINT AD$(CP): POKE 32,1: POKE 33,38
  83. 112  VTAB 23: HTAB 8: PRINT "ARROWS:MOVE HIGHLIGHT": HTAB 8: PRINT "RETURN:READ ";
  84. 113 TP = 0:BT = 7
  85. 114 CS = 0
  86. 115  IF BT >DC -1  THEN BT = DC -1
  87. 116  GOSUB 141
  88. 117  FOR I = 0 +(OD >0) TO BT -TP: VTAB I +12: HTAB 3
  89. 118  PRINT " "SB$(I +TP)" "
  90. 119  NEXT I
  91. 120  VTAB 11: HTAB 3: PRINT "----------------": VTAB 20: HTAB 3: PRINT "----------------"
  92. 121  IF TP >0  THEN  VTAB 11: HTAB 3: PRINT "------MORE------"
  93. 122  IF BT <DC -1  THEN  VTAB 20: HTAB 3: PRINT "------MORE------"
  94. 123  VTAB 24: HTAB 20: NORMAL : PRINT  SPC( 15);: HTAB 20: INVERSE : PRINT " "SB$(CS +TP)" ";
  95. 124  VTAB CS +12: HTAB 3: INVERSE : PRINT " "SB$(CS +TP)" "
  96. 125  GOSUB 196: NORMAL : VTAB CS +12: HTAB 3: PRINT " "SB$(CS +TP)" "
  97. 126  IF (K$ =  CHR$(11)  OR K$ =  CHR$(8))  AND CS = 0  AND TP >0  THEN TP = TP -8:BT = TP +7:CS = 7: GOTO 116
  98. 127  IF (K$ =  CHR$(11)  OR K$ =  CHR$(8))  THEN  IF CS >0  THEN CS = CS -1: GOTO 123
  99. 128  IF (K$ =  CHR$(10)  OR K$ =  CHR$(21))  AND CS = BT -TP  AND BT <DC -1  THEN TP = TP +8:BT = BT +8: GOTO 114
  100. 129  IF (K$ =  CHR$(10)  OR K$ =  CHR$(21))  THEN  IF CS <BT -TP  THEN CS = CS +1: GOTO 123
  101. 130  IF K$ =  CHR$(27)  THEN 198
  102. 131  IF K$ =  CHR$(13)  THEN 139
  103. 132  IF K$ = " "  THEN 143
  104. 133 QQ =  PEEK( -16336) - PEEK( -16336) + PEEK( -16336) - PEEK( -16336): GOTO 123
  105. 134  REM <CTRL-0x0a>SUBDIR ERRS
  106. 135  IF  PEEK(222) = 5  THEN  POKE 216,0: GOTO 106
  107. 136  PRINT "ERROR:" PEEK(222)
  108. 137  GOTO 164
  109. 138  REM <CTRL-0x0a>ADD DIR TO PATH
  110. 139 AD$(CP) = AD$(CP) +SB$(CS +TP) +"/": GOTO 93
  111. 140  REM <CTRL-0x0a>CLR BTM
  112. 141  POKE 34,11: POKE 35,19: HOME : POKE 34,8: POKE 35,24: RETURN 
  113. 142  REM <CTRL-0x0a>COPY
  114. 143  HOME : HTAB 3: PRINT "PRESS A KEY TO START": PRINT "  COPYING FILES FROM:": PRINT : PRINT "  "PF$: PRINT : PRINT "  TO "AD$(CP)"."
  115. 144  GOSUB 196: IF K$ =  CHR$(27)  THEN 198
  116. 145  HOME : HTAB 3: PRINT "COPYING FILES FROM": PRINT : HTAB 3: PRINT PF$: PRINT : HTAB 3: PRINT "TO "AD$(CP)"..."
  117. 146  ONERR  GOTO 164
  118. 147  POKE 34,15
  119. 148  FOR I = 0 TO FC
  120. 149  IF  RIGHT$(F$(I),2) = ".G"  OR  RIGHT$(F$(I),2) = ".g"  THEN 160
  121. 150  HOME : HTAB 3: PRINT "COPYING "F$(I): HTAB 3: PRINT "TO "AD$(CP)
  122. 152  IF  PEEK( -16384) = 155  THEN 198
  123. 153 SP$ = PF$ +F$(I):DP$ = AD$(CP) +F$(I)
  124. 154  PRINT  CHR$(4)"copy"SP$","DP$
  125. 160  NEXT I
  126. 161  POKE 34,8: HOME : HTAB 3: PRINT "DONE COPYING. RETURNING...": GOTO 198
  127. 163  REM <CTRL-0x0a>ERROR
  128. 164  POKE 34,1: HOME : VTAB 4
  129. 165  NORMAL 
  130. 167 X =  PEEK(222): POKE 216,0
  131. 168  HTAB 3
  132. 169  PRINT "BASIC ERROR "X" ENCOUNTERED:"
  133. 170  HTAB 3: IF X = 7  THEN  PRINT "FILE NOT FOUND": GOTO 182
  134. 171  IF X = 4  THEN  PRINT "DISK WRITE PROTECTED.": GOTO 182
  135. 172  IF X = 5  THEN  PRINT "END OF DATA.": GOTO 182
  136. 173  IF X = 6  THEN  PRINT "PATH NOT FOUND.": GOTO 182
  137. 174  IF X = 8  THEN  PRINT "I/O ERROR.": GOTO 182
  138. 175  IF X = 9  THEN  PRINT "DISK FULL.": GOTO 182
  139. 176  IF X = 16  THEN  PRINT "SYNTAX ERROR.": GOTO 182
  140. 177  IF X = 17  THEN  PRINT "DIRECTORY FULL.": GOTO 182
  141. 178  IF X = 20  THEN  PRINT "FILE BUSY.": GOTO 182
  142. 179  IF X = 21  THEN  PRINT "FILE(S) STILL OPEN.": GOTO 182
  143. 180  IF X = 255  THEN  PRINT "YOU PRESSED CONTROL-C.": GOTO 182
  144. 181  PRINT "I DON'T KNOW THIS ERROR."
  145. 182  HTAB 3: PRINT "PRESS A KEY.": GOSUB 196: GOTO 198
  146. 196  POKE  -16368,0: WAIT  -16384,128: GET K$: POKE  -16368,0: RETURN 
  147. 197  REM <CTRL-0x0a>EXIT
  148. 198  TEXT : HOME : VTAB 12: HTAB 9: PRINT "RETURNING TO SOFTDISK"
  149. 199  POKE  -16368,0
  150. 200  FOR I = 1 TO 2000: NEXT I
  151. 201  PRINT  CHR$(4)"BYE"
  152. 202  END  SPEED= $ DEL 
  153. 389  SPEED= 
  154. 16553  DEL <CTRL-0x03> COLOR= 
  155. 657  + = <UNKNOWN TOKEN> ASC<CTRL-0x01> ASC<CTRL-0x03> ONERR <CTRL-0x01> -  = <UNKNOWN TOKEN>` SPEED= <CTRL-0x05> <UNKNOWN TOKEN> GET  HGR2 <CTRL-0x03>L<CTRL-0x09> GET  DEL <CTRL-0x08> IF B GET  = <CTRL-0x15>,C GET 0<CTRL-0x10> COLOR= 
  156. 61509 <CTRL-0x09>  POSD <UNKNOWN TOKEN><UNKNOWN TOKEN> + = <UNKNOWN TOKEN> ONERR <CTRL-0x08> PLOT FA SPEED= 
  157. 16809  DEL <CTRL-0x07> COLOR= 
  158. 36384 <UNKNOWN TOKEN> LOMEM: / TAB( <CTRL-0x02> = <CTRL-0x12> RETURN <CTRL-0x06> -A HGR2 <CTRL-0x0c> -G GOSUB <CTRL-0x08>8 RIGHT$A<CTRL-0x18>e<CTRL-0x08> HGR <CTRL-0x06> ROT= 8e<CTRL-0x06> DEL <CTRL-0x06> HGR2 <CTRL-0x02> ASC<CTRL-0x07> ONERR <CTRL-0x07> -D HGR2  < ONERR <CTRL-0x06> - LEFT$ HGR2 / IF <CTRL-0x07> GET  PLOT NA IF <CTRL-0x08> GET  PLOT OA SPEED= 
  159. 42430 <CTRL-0x08> PLOT <CTRL-0x08> GET  SPEED= 
  160. 16809  DEL = SPEED= <CTRL-0x17> DEL > SPEED= E DEL ? SPEED= 
  161. 2213  DEL C COLOR= 
  162. 24830 
  163. 48748  DEL <CTRL-0x06> IF m GET  DEL <CTRL-0x07> COLOR= 
  164. 55558 OA = <CTRL-0x0a> TAB( <CTRL-0x04> HGR2 <UNKNOWN TOKEN> SPEED= 
  165. 4336  COLOR= 
  166. 55558 SA = # TAB( <CTRL-0x04> HGR2 <UNKNOWN TOKEN> INPUT <CTRL-0x09> GR  CALL R GET  SPEED= 
  167. 36286 U GET  SPEED= <CTRL-0x03> PLOT T GET  SPEED= X PLOT P GET  SPEED= 
  168. 6334 `8L
  169. 20559 YMOVE IF V GET )<CTRL-0x03> -<CTRL-0x03><UNKNOWN TOKEN><CTRL-0x04> SPEED= <CTRL-0x10>8` ONERR p<CTRL-0x18> VALn -<CTRL-0x06> GOSUB <CTRL-0x04> SPEED= <CTRL-0x0c> = <UNKNOWN TOKEN>8 RIGHT$<CTRL-0x04> DEL  > DEL   OR J HGR2 <CTRL-0x02>  NOT   OR  IF <UNKNOWN TOKEN> GET  DEL <UNKNOWN TOKEN> ONERR t PLOT <UNKNOWN TOKEN> GET  ONERR   OR  <UNKNOWN TOKEN> GET  GOSUB <CTRL-0x13> PLOT  PDL GET  SPEED= 
  170. 43454 <CTRL-0x04> <UNKNOWN TOKEN> GET  HGR2 <CTRL-0x11>, SPEED= <CTRL-0x0d>8H<CTRL-0x08> <UNKNOWN TOKEN> GET  ONERR <UNKNOWN TOKEN> PLOT <UNKNOWN TOKEN> GET (h` DEL <UNKNOWN TOKEN> SPEED= <CTRL-0x0a> PLOT  ON  GET  SPEED=   THEN  p GET  HGR2 <CTRL-0x0b> -<CTRL-0x06> =  TAN RD HGR2  LOG GOSUB  RIGHT$ IF  DEF  GET  -<CTRL-0x0f><UNKNOWN TOKEN> =  PLOT  LOMEM:  GET  COLOR= <CTRL-0x03> POKE  GET  GET  SCALE=  STORE  GET  GR <CTRL-0x10><UNKNOWN TOKEN> COLOR= <CTRL-0x04> POKE  SAVE  GET  SCALE=  HIMEM:  GET  GR  = <UNKNOWN TOKEN> SPEED=  SPC(  PLOT  HIMEM:  GET  SPEED= 
  171. 60293  DEL  SCRN(  DEL <UNKNOWN TOKEN> COLOR= <CTRL-0x02> SCALE= <UNKNOWN TOKEN>
  172. 34884 <CTRL-0x10><UNKNOWN TOKEN> +D ONERR  SCRN(  = W RESUME t HLIN  > GET  LEFT$ LEFT$ DIM <CTRL-0x1b> LEFT$ DIM <CTRL-0x1d> SPEED= 
  173. 7301  PLOT   OR  GET  SPEED=  + p GET  HGR2 <CTRL-0x0c> -<CTRL-0x06> = <CTRL-0x17> RD GOSUB <UNKNOWN TOKEN>L +B IF  =  GET  DEL  SCRN(  PLOT   STEP  GET  SPEED=  < p GET  HGR2 <CTRL-0x03>L AT B COLOR= <CTRL-0x02> POKE  + GET  SCALE= <UNKNOWN TOKEN>
  174. 41207 <CTRL-0x02> POKE <UNKNOWN TOKEN>
  175. 35006 <CTRL-0x10><UNKNOWN TOKEN> SPEED=   OR  p GET  MID$  MID$  IF 
  176. 51466  TRACE  = <CTRL-0x03>L +B PLOT <CTRL-0x10> TAB(  ONERR  SCRN(  PLOT  FRE GET  PLOT   STEP  GET  SPEED= 
  177. 41662 
  178. 6833 <CTRL-0x11><CTRL-0x1c><UNKNOWN TOKEN><CTRL-0x1c> ASC<UNKNOWN TOKEN> LEFT$ LEFT$ STR$  OR  HGR2 <UNKNOWN TOKEN> HLIN  SQR GET  SPEED=  * p GET  GOSUB <CTRL-0x03>L7C -<CTRL-0x05> = &L CLEAR C TAN
  179. 53161  p GET  GOSUB <CTRL-0x18> IF  + GET  AT <UNKNOWN TOKEN> = ? IF  - GET  AT <UNKNOWN TOKEN> = 8 IF  * GET  AT <UNKNOWN TOKEN> = 1L CLEAR C8 GOSUB <CTRL-0x01><CTRL-0x18><CTRL-0x08>H 3D ONERR <UNKNOWN TOKEN><UNKNOWN TOKEN><CTRL-0x08> PLOT  COS GET  SPEED=  ^ p GET  SPEED=  TO  p GET  +D ONERR  SCRN( <UNKNOWN TOKEN><CTRL-0x08> PLOT  COS GET  SPEED=  ^ p GET h(L VTAB A ASC<UNKNOWN TOKEN> LEFT$ LEFT$ LOMEM: <UNKNOWN TOKEN> RETURN <CTRL-0x1a><CTRL-0x11><CTRL-0x1c> = <CTRL-0x04> STR$  OR  HGR2 <UNKNOWN TOKEN> PR# <CTRL-0x18>m - GET  PLOT  - GET  HGR2 <CTRL-0x05><UNKNOWN TOKEN> * GET <UNKNOWN TOKEN> GOSUB  IF  * GET  AT <UNKNOWN TOKEN> HGR2  SPEED=  IF  * GET  DEL <UNKNOWN TOKEN> SPEED=   OR  p GET  MID$  MID$  ONERR <UNKNOWN TOKEN> PLOT   STEP  GET  SPEED=   OR  p GET  MID$  MID$ L<CTRL-0x02>BL AT B 3D ONERR <UNKNOWN TOKEN> = O SPEED=  TAB(  p GET  HGR2 <CTRL-0x10> -<CTRL-0x13><UNKNOWN TOKEN><CTRL-0x0c> -<CTRL-0x06> = m iD GOSUB <UNKNOWN TOKEN>L +B ONERR <UNKNOWN TOKEN> PLOT  > GET  SPEED=  + p GET  GOSUB Y IF  =  GET  DEL <UNKNOWN TOKEN> PLOT   STEP  GET  COLOR= <CTRL-0x02> POKE <UNKNOWN TOKEN>
  180. 35006 <CTRL-0x10><UNKNOWN TOKEN> SPEED=  =  p GET  GOSUB ? COLOR= <CTRL-0x02> POKE  VALD SCALE=  + GET  GR <CTRL-0x10><UNKNOWN TOKEN> SPEED=   OR  p GET  GOSUB - ONERR <UNKNOWN TOKEN> PLOT  FRE GET  IF  LOG GET  PLOT  SQR GET  IF  RND GET  PLOT  POS GET  SPEED= / p GET  GOSUB <CTRL-0x15> SPEED=  > p GET  GOSUB <CTRL-0x0e> COLOR= <CTRL-0x02> POKE  + GET  SCALE=  VALD GR <CTRL-0x10><UNKNOWN TOKEN>L<CTRL-0x02>BL AT B ONERR  SCRN(  PLOT  COS GET  SPEED=  ^ p GET  GOSUB Z SPEED= <CTRL-0x0a> PLOT  ON  GET  SPEED=   THEN  p GET  GOSUB N IF  SAVE  GET ) SIN PLOT  SAVE  GET  SPEED=   PLOT  XDRAW  NEW  SPEED= <CTRL-0x07> PLOT  ON  GET  SPEED=  SPC(  p GET  3D ONERR <UNKNOWN TOKEN> PLOT  COS GET  SPEED=  ^ p GET  HGR2 <CTRL-0x0f> -<CTRL-0x06><UNKNOWN TOKEN><CTRL-0x03>8 GOSUB ! iD GOSUB <UNKNOWN TOKEN>L +B SPEED= <CTRL-0x07> PLOT  ON  GET  SPEED=  SPC(  p GET  +D ONERR <CTRL-0x09><UNKNOWN TOKEN><CTRL-0x07> SPEED=  TO  p GET  GOSUB <CTRL-0x01><CTRL-0x18>H +DhL VTAB A IF l GET  RESTORE m GET  = <CTRL-0x06> IF n GET  RESTORE o GET  PLOT  POP  GET  PLOT  IF  GET  PLOT  WAIT  GET  PLOT  ^ GET  HLIN  VTAB  GET  HLIN  RESTORE  GET  HLIN  LOAD  GET  HLIN   AND  GET ` IF l GET  DEL <CTRL-0x06> IF m GET  DEL <CTRL-0x07> ONERR <UNKNOWN TOKEN><UNKNOWN TOKEN>: COLOR= 
  181. 5616 L AT B IF n GET  DEL <CTRL-0x06> IF o GET  DEL <CTRL-0x07> ONERR  SCRN( <UNKNOWN TOKEN># COLOR= 
  182. 56973  GET  PLOT   STEP  GET  SPEED=  > p GET  GOSUB  COS COLOR= <CTRL-0x02> POKE  + GET  SCALE= <UNKNOWN TOKEN>
  183. 43511  ^ p GET  GOSUB  ^ DIM <CTRL-0x02> COLOR= 
  184. 61508 <CTRL-0x09>  POSD <UNKNOWN TOKEN><UNKNOWN TOKEN> + = <UNKNOWN TOKEN> COLOR= 
  185. 51370  RETURN <CTRL-0x06><CTRL-0x09> END  <UNKNOWN TOKEN><UNKNOWN TOKEN> * = <UNKNOWN TOKEN> CLEAR <UNKNOWN TOKEN>D<UNKNOWN TOKEN><CTRL-0x09>  POSD <UNKNOWN TOKEN><UNKNOWN TOKEN> LEFT$ = <UNKNOWN TOKEN> <CTRL-0x0c><UNKNOWN TOKEN> - PLOT <UNKNOWN TOKEN><CTRL-0x05> - TRACE  = <UNKNOWN TOKEN><CTRL-0x18> RESUME <CTRL-0x02>` - ATN HGR2 <CTRL-0x07>, ROT=  NEW 0<CTRL-0x02>) SIN` PLOT  PLOT  -<UNKNOWN TOKEN><UNKNOWN TOKEN> VAL<UNKNOWN TOKEN><UNKNOWN TOKEN> COLOR= 
  186. 58866 <UNKNOWN TOKEN><UNKNOWN TOKEN> COLOR=  SGN ABS  OR  COLOR= <UNKNOWN TOKEN><UNKNOWN TOKEN> COLOR=  LEN<UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN> RIGHT$<UNKNOWN TOKEN><UNKNOWN TOKEN> VAL CONT  COLOR=  AT  INT SPC(  COLOR= <UNKNOWN TOKEN><UNKNOWN TOKEN> COLOR= <UNKNOWN TOKEN><UNKNOWN TOKEN> RIGHT$<UNKNOWN TOKEN> RESTORE 
  187. 41120  COLOR=  COLOR=  COLOR=  COLOR=  IF  COLOR=  = <UNKNOWN TOKEN><UNKNOWN TOKEN> SPC(  > =  POS COLOR= <UNKNOWN TOKEN> RETURN  RESTORE  STOP  COLOR=  IF  PLOT  = <UNKNOWN TOKEN><UNKNOWN TOKEN>  THEN  > INT COLOR=  SPC(  > =  POS COLOR=  ATN<UNKNOWN TOKEN> STR$ COLOR=   AND  > FRE AT  COLOR=  SPC( <UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN> ATN<UNKNOWN TOKEN> STR$<UNKNOWN TOKEN> PLOT  SPC( <UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN> RIGHT$ CHR$ LEFT$<UNKNOWN TOKEN> COLOR=  STORE  LEN SPEED=  COLOR=  RETURN  POKE  POKE  GOSUB  COLOR=  INT<UNKNOWN TOKEN> ASC<UNKNOWN TOKEN> STR$ RIGHT$<UNKNOWN TOKEN><UNKNOWN TOKEN> RUN  COLOR=  -<UNKNOWN TOKEN> LEN RESTORE  PLOT  COLOR=  COLOR=  COLOR=  COLOR=  COLOR=  COLOR=  TO <UNKNOWN TOKEN><UNKNOWN TOKEN> COLOR= <UNKNOWN TOKEN> RIGHT$ CHR$ LEFT$<UNKNOWN TOKEN><UNKNOWN TOKEN> COLOR= <UNKNOWN TOKEN> VAL<UNKNOWN TOKEN> VAL<UNKNOWN TOKEN><UNKNOWN TOKEN> VAL STR$ PLOT  COLOR=  COLOR=  COLOR=  = <UNKNOWN TOKEN> PEEK<UNKNOWN TOKEN> RIGHT$<UNKNOWN TOKEN> LEFT$ VAL STR$ COLOR= <UNKNOWN TOKEN><UNKNOWN TOKEN> COLOR=  INT<UNKNOWN TOKEN> ASC<UNKNOWN TOKEN> STR$ RIGHT$<UNKNOWN TOKEN><UNKNOWN TOKEN> COLOR=  HIMEM:  POKE  POKE  PLOT  SPC(  LEFT$ ATN<UNKNOWN TOKEN> CHR$ RIGHT$<UNKNOWN TOKEN> CHR$ COLOR= <UNKNOWN TOKEN> LEFT$ RIGHT$<UNKNOWN TOKEN> COLOR= <UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN> RIGHT$ LEN VAL COLOR=  RIGHT$<UNKNOWN TOKEN> COLOR=  RIGHT$<UNKNOWN TOKEN><UNKNOWN TOKEN> VAL CHR$ ATN<UNKNOWN TOKEN> RESTORE  PLOT  PLOT